home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb29.arc / TURBHERC.PAS < prev    next >
Pascal/Delphi Source File  |  1985-02-25  |  3KB  |  150 lines
  1. PROCEDURE CIR(X,Y,R:INTEGER);
  2.   BEGIN
  3.     RESULT.AX:=$4D00;
  4.     RESULT.DI:=X;
  5.     RESULT.BP:=Y;
  6.     RESULT.BX:=R;
  7.     INTR(16,RESULT);
  8.   END;
  9.  
  10. PROCEDURE GMODE;
  11.   BEGIN
  12.     RESULT.AX:=$4000;
  13.     INTR(16,RESULT);
  14.   END;
  15.  
  16. PROCEDURE TMODE;
  17.   BEGIN
  18.     RESULT.AX:=$4100;
  19.     INTR(16,RESULT);
  20.   END;
  21.  
  22. PROCEDURE CLRG;
  23.   BEGIN
  24.     RESULT.AX:=$4200;
  25.     INTR(16,RESULT);
  26.   END;
  27.  
  28. PROCEDURE GPAGE(X:INTEGER);
  29.   BEGIN
  30.     RESULT.AX:=$4300+X;
  31.     INTR(16,RESULT);
  32.   END;
  33.  
  34. PROCEDURE DISP(X:INTEGER);
  35.   BEGIN
  36.     RESULT.AX:=$4500+X;
  37.     INTR(16,RESULT);
  38.   END;
  39.  
  40. procedure arc(x,y,r,q:integer);
  41.   begin
  42.     result.ax:=$4c00+q;
  43.     result.di:=x;
  44.     result.bp:=y;
  45.     result.bx:=r;
  46.     intr(16,result);
  47.   end;
  48.  
  49. procedure blkfil(x,y,w,h:integer);
  50.   begin
  51.     result.ax:=$4a00;
  52.     result.di:=x;
  53.     result.bp:=y;
  54.     result.cx:=w;
  55.     result.bx:=h;
  56.     intr(16,result);
  57.   end;
  58.  
  59. procedure dline(x,y:integer);
  60.   begin
  61.     result.ax:=$4900;
  62.     result.di:=x;
  63.     result.bp:=y;
  64.     intr(16,result);
  65.   end;
  66.  
  67. procedure fill(x,y:integer);
  68.   begin
  69.     result.ax:=$4e00;
  70.     result.di:=x;
  71.     result.bp:=y;
  72.     intr(16,result);
  73.   end;
  74.  
  75. procedure getpt(x,y,i:integer);
  76.   begin
  77.     result.ax:=$4700;
  78.     result.di:=x;
  79.     result.bp:=y;
  80.     intr(16,result);
  81.     i:=result.ax and 255;
  82.   end;
  83.  
  84. procedure level(x:integer);
  85.   begin
  86.     result.ax:=$4400+x;
  87.     intr(16,result);
  88.   end;
  89.  
  90. procedure move(x,y:integer);
  91.   begin
  92.     result.ax:=$4800;
  93.     result.di:=x;
  94.     result.bp:=y;
  95.     intr(16,result);
  96.   end;
  97.  
  98. procedure invert;
  99.   begin
  100.     level(0);
  101.   end;
  102.  
  103. procedure normal;
  104.   begin
  105.     level(1)
  106.   end;
  107.  
  108. procedure plot(x,y:integer);
  109.   begin
  110.     result.ax:=$4600;
  111.     result.di:=x;
  112.     result.bp:=y;
  113.     intr(16,result);
  114.   end;
  115.  
  116. procedure char(x,y,z:integer);
  117.   begin
  118.     result.ax:=$4b00+z;
  119.     result.di:=x;
  120.     result.bp:=y;
  121.     intr(16,result);
  122.   end;
  123.  
  124. procedure text(x,y:integer;s:str);
  125.   var
  126.         XX,YY,ZZ:INTEGER;
  127.  
  128.   begin
  129.     xx:=x;
  130.     yy:=y;
  131.     for i:=1 to length(s) do
  132.     begin
  133.       j:=0;
  134.       repeat
  135.         j:=j+1
  136.       until chr(j)=s[i];
  137.       char(xx,yy,j);
  138.       xx:=xx+9;
  139.     end;
  140.   end;
  141.  
  142. procedure box(x,y,x2,y2:integer);
  143.   begin
  144.     move(x,y);
  145.     dline(x2,y);
  146.     dline(x2,y2);
  147.     dline(x,y2);
  148.     dline(x,y);
  149.   end;
  150.